home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / PROGRAMR / MC00.ZIP / S01.SCM < prev    next >
Text File  |  1993-05-02  |  1KB  |  26 lines
  1. { C:\BP\CODE\S01.SCM  MenuCase 0.0 13:43:14, 5/2/93 }
  2. GetExtent(r);
  3. R.B.Y := R.A.Y + 1;
  4. MenuBar := new(PmenuBar,init(r,
  5. NewMenu(
  6.   NewSubMenu('~M~aintenance', hcnocontext,
  7.   NewMenu(
  8.         NewSubMenu('~C~lients', hcNoContext,
  9.         NewMenu(
  10.               NewItem('~A~dd client', 'F2',kbF2 ,CmAddClient, HcClientHint, 
  11.               NewItem('~E~dit client', ' ',kbnokey,CmEditClient, HcClientHint, 
  12.               NewLine(
  13.               NewItem('~D~elete client', ' ',kbnokey,CmDeleteClient, HcClientHint, 
  14.         NIL))))),
  15.         NewItem('e~X~it', ' ',kbAltX,cmquit, hcnocontext, 
  16.   NIL))),
  17.   NewSubMenu('~R~eports', hcNoContext,
  18.   NewMenu(
  19.         NewItem('~E~mployee reports', ' ',kbnokey,CmEmployeeReports, HcEmployeeHint, 
  20.         NewSubMenu('~C~lient reports', hcNoContext,
  21.         NewMenu(
  22.               NewItem('~A~ll clients', ' ',kbnokey,CmReportAllClients, HcClientReportHint, 
  23.               NewItem('~S~elect client', ' ',kbnokey,CmSelectClient, HcClientReportHint, 
  24.         NIL))),
  25.   NIL))),nil)))));
  26.